unit uERP_Usuario;

interface

uses uERP_ID;

type
  TUsuario = class(TID)

    {$REGION '<< Atributes >>'}

      private var m_Nome: String;
      private var m_Login: String;
      private var m_Senha: String;

    {$ENDREGION}

    {$REGION '<< Methods >>'}

      {$REGION '<< Getter and Setter >>'}

        private function GetLogin(): String;
        private function GetNome(): String;
        private function GetSenha(): String;

        private procedure SetLogin(const a_Value: String);
        private procedure SetNome(const a_Value: String);
        private procedure SetSenha(const a_Value: String);

      {$ENDREGION}

      public constructor Create(); virtual;

    {$ENDREGION}

    {$REGION '<< Properties >>'}

      public property Nome: String read GetNome write SetNome;
      public property Login: String read GetLogin write SetLogin;
      public property Senha: String read GetSenha write SetSenha;

    {$ENDREGION}

  end;

implementation

{$REGION '<< TUsuario >>'}

constructor TUsuario.Create;
begin
  inherited;

  Self.m_Nome := '';
  Self.m_Login := '';
  Self.m_Senha := '';
end;

function TUsuario.GetLogin: String;
begin
  Result := m_Login;
end;

function TUsuario.GetNome: String;
begin
  Result := m_Nome;
end;

function TUsuario.GetSenha: String;
begin
  Result := m_Senha;
end;

procedure TUsuario.SetLogin(const a_Value: String);
begin
  m_Login := a_Value;
end;

procedure TUsuario.SetNome(const a_Value: String);
begin
  m_Nome := a_Value;
end;

procedure TUsuario.SetSenha(const a_Value: String);
begin
  m_Senha := a_Value;
end;

{$ENDREGION}

end.
